home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / GraKa / Scene-Handler / Install < prev    next >
Encoding:
Text File  |  2000-02-13  |  3.4 KB  |  152 lines
  1. ; $VER: Installer 0.1 (03-Feb-2000)
  2.  
  3. ; =============================
  4. ; ================ Localisation
  5.  
  6. ; Language
  7. (set #language (getenv "Language"))
  8.  
  9. ; =============================
  10. ; ============== English Locale
  11.  
  12. (set #welcome-string "Welcome\nto the %s installation")
  13. (set #translation-string "")
  14. (set #selectdir-ask "Please select the %s directory.\n(No new directory will be created)")
  15. (set #copy-ask "Should the %s be installed?")
  16. (set #samedir-error "\n\nError: You MUST select another directory.")
  17.  
  18. ; =============================
  19. ; ============= Deutsche Locale
  20.  
  21. (if (= #language "deutsch")(
  22.  
  23. (set #welcome-string "Willkommen\nzu der %s Installation")
  24. (set #translation-string "")
  25. (set #selectdir-ask "Bitte wähle das %s Verzeichnis.\n(Es wird kein neues erzeugt)")
  26. (set #copy-ask "Soll %s installiert werden?")
  27. (set #samedir-error "\n\nFehler: Sie MÜSSEN ein anderes Verzeichnis auswählen.")
  28.  
  29. ))
  30.  
  31. ; =============================
  32. ; ================= Test Locale
  33.  
  34. (if (= #language "test")(
  35.  
  36. (set #welcome-string "Welcome\nto the %s installation")
  37. (set #translation-string "Translated by XXX <eMail>")
  38. (set #selectdir-ask "Please select the %s directory.\n(No new directory will be created)")
  39. (set #copy-ask "Should %s\nreplaced by the latest version?")
  40. (set #samedir-error "\n\nError: You MUST select another directory.")
  41.  
  42. ))
  43.  
  44. ; =============================
  45. ; =============================
  46. ; ======== the Installer itself
  47.  
  48. (procedure P_complete #nu (
  49.     (complete (+ #pro-start (/ (* (/ (* #pro-val 1000) #pro-num) #nu) 1000)))
  50. ))
  51.  
  52. (procedure P_Start #pro-val (
  53.     (set #pro-num 5)
  54.     (set #pro-start 0)
  55.     (set #pro-next #pro-val)
  56.  
  57.     (P_complete 0)
  58.  
  59.     ; Application Name  <- icon
  60.     (set #app @app-name)
  61.  
  62.     ;home
  63.     (set #home (expandpath ""))
  64.  
  65.     (message (cat "\n\n\n" (#welcome-string #app) "\n\n\n\n\n\n\n" #translation-string "\nInstaller ©2000 ALeX Kazik"))
  66.  
  67.     (P_complete 1)
  68.  
  69.     (set #dir
  70.         (askdir
  71.             (prompt (#selectdir-ask #app))
  72.             (help @askdir-help)
  73.             (default "RAM:")
  74.         )
  75.     )
  76.  
  77.     (P_complete 4)
  78.  
  79.     (set #dir (expandpath #dir))
  80.  
  81.     (if (= #dir #home)(
  82.         (abort #samedir-error)
  83.     ))
  84.  
  85.     (set @default-dest #dir)
  86. ))
  87.  
  88. (procedure P_Copy #pro-val #force #text #sdir #pat (
  89.     (set #pro-num 1)
  90.     (set #pro-start #pro-next)
  91.     (set #pro-next (+ #pro-next #pro-val))
  92.  
  93.     (P_complete 0)
  94.  
  95.     (if (= #force 0)(
  96.         (copyfiles
  97.             (source (tackon #home #sdir))
  98.             (pattern #pat)
  99.             (dest (tackon #dir #sdir))
  100.             (optional "nofail" "force")
  101.             (prompt (#copy-ask #text)) (help @copyfiles-help) (confirm)
  102.         )
  103.     )(
  104.         (copyfiles
  105.             (source (tackon #home #sdir))
  106.             (pattern #pat)
  107.             (dest (tackon #dir #sdir))
  108.             (optional "nofail" "force")
  109.         )
  110.     ))
  111. ))
  112.  
  113. (procedure P_MakeDir #pro-val #force #text #sdir (
  114.     (set #pro-num 1)
  115.     (set #pro-start #pro-next)
  116.     (set #pro-next (+ #pro-next #pro-val))
  117.  
  118.     (P_complete 0)
  119.  
  120.     (if (= #force 0)(
  121.         (makedir (tackon #dir #sdir)
  122.             (prompt "newdir") (help "help") (confirm)
  123.         )
  124.     )(
  125.         (makedir (tackon #dir #sdir)
  126.         )
  127.     ))
  128. ))
  129.  
  130. (procedure P_Skip #pro-val #d1 #d2 #d3 #d4 #d5 #d6 #d7 #d8 #d9 (
  131.     (set #pro-next (+ #pro-next #pro-val))
  132. ))
  133.  
  134. ; =============================
  135. ; =============================
  136. ; ====================== Config
  137.  
  138. ; =============================
  139. ; =================== Do It Now
  140.  
  141. (P_Start   15 )
  142. (P_Copy    40 0 "Basics"    ""         "(Scene-Handler|Scene-Handler.info|Icons.info|Doc.info)" )
  143. (P_Copy    15 0 "Icon Sets" "Icons"    "#?" )
  144. (P_Copy    15 0 "Catalogs"  "catalogs" "#?" )
  145. (P_Copy    15 0 "Documentation" "Docs" "#?" )
  146.  
  147. ; =============================
  148. ; ======================= Done.
  149.  
  150. (complete 100)
  151. (exit)
  152.